home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 1 / Literacy Segments Part 1 / background_95335.txt < prev    next >
Text File  |  1989-08-22  |  14KB  |  613 lines
  1. -- background: 95335 from stack: in
  2. -- bmap block id: 95586
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 1.2.2 Practice2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   put line (line 2 of fld "key") of answerTracker into theLocs
  11.   if theLocs is not empty then
  12.     repeat with i = 1 to number of lines in fld "origins"
  13.       get item (i*2 - 1) to (i*2) of theLocs
  14.       set the loc of fld ("item" & i) to it
  15.     end repeat
  16.   else
  17.     repeat with j = 1 to number of lines in fld "origins"
  18.       set the loc of fld ("item" & j) to (line j of fld "origins")
  19.     end repeat
  20.   end if
  21.   pass openCard
  22. end openCard
  23.  
  24. on closeCard
  25.   global answerTracker
  26.   get line 2 of fld "key"  -- says which line of global to worry about
  27.   put empty into line it of answerTracker
  28.   repeat with i = 1 to number of lines in fld "origins"
  29.     put the loc of fld ("item" & i) & "," after line it of answerTracker
  30.   end repeat
  31.   delete last char of line it of answerTracker
  32.   pass closeCard
  33. end closeCard
  34.  
  35. on moveField
  36.   get fld "decisions"
  37.   repeat until the mouse is up
  38.     if item 2 of the mouseLoc > line 1 of it
  39.     then set the loc of the target to the mouseLoc
  40.   end repeat
  41.   put the loc of the target into temp
  42.   if item 1 of the loc of the target > (line 2 of it) then
  43.     if item 2 of the loc of the target < (line 3 of it) then
  44.       validate (line 1 of fld "destinations")
  45.     else if item 2 of the loc of the target < (line 4 of it) then
  46.       validate (line 2 of fld "destinations")
  47.     else if item 2 of the loc of the target < (line 5 of it) then
  48.       validate (line 3 of fld "destinations")
  49.     else validate (line 4 of fld "destinations")
  50.   end if
  51.   if the loc of the target = temp
  52.   then set the loc of the target to line (last char of the short name of the target) of fld "origins"
  53. end moveField
  54.  
  55. on validate where
  56.   repeat with i = 1 to 4
  57.     if the short name of the target = ("item" & i) then next repeat
  58.     if the loc of fld ("item" & i) = where then exit validate
  59.   end repeat
  60.   set the loc of the target to where
  61. end validate
  62.  
  63. on hideFeedback
  64.   lock screen
  65.   hide fld "Feedback1"
  66.   hide fld "Feedback2"
  67.   hide fld "Feedback3"
  68.   hide fld "Feedback4"
  69.   hide fld "Feedback5"
  70.   hide fld "CorrectAnswer"
  71.   hide fld "MasterFeedback"
  72.   hide bg btn "Done"
  73.   unlock screen
  74. end hideFeedback
  75.  
  76. on showFeedback
  77.   lock screen
  78.   show fld "Feedback1"
  79.   show fld "Feedback2"
  80.   show fld "Feedback3"
  81.   show fld "Feedback4"
  82.   show fld "Feedback5"
  83.   show fld "CorrectAnswer"
  84.   show fld "MasterFeedback"
  85.   show bg btn "Done"
  86.   unlock screen
  87. end showFeedback
  88.  
  89.  
  90. -- part 3 (field)
  91. -- low flags: 01
  92. -- high flags: 0000
  93. -- rect: left=18 top=1 right=38 bottom=442
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 156
  98. -- text size: 24
  99. -- style flags: 10240
  100. -- line height: 32
  101. -- part name: Title
  102.  
  103.  
  104. -- part 14 (button)
  105. -- low flags: 00
  106. -- high flags: 0000
  107. -- rect: left=443 top=5 right=72 bottom=512
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Instant Reference
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   instantReference "1.2.2"
  119. end mouseUp
  120.  
  121.  
  122. -- part 15 (button)
  123. -- low flags: 00
  124. -- high flags: 2000
  125. -- rect: left=480 top=143 right=172 bottom=511
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 1310 / 1310
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Student Services
  134. ----- HyperTalk script -----
  135. on mousedown
  136.   SSpopUp
  137. end mousedown
  138.  
  139. on mouseup
  140.   if the mouseloc is not within the rect of me then exit to hyperCard
  141.   doSS
  142. end mouseup
  143.  
  144.  
  145.  
  146. -- part 16 (button)
  147. -- low flags: 00
  148. -- high flags: 2000
  149. -- rect: left=482 top=176 right=205 bottom=511
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 162 / 162
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Help
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   Help
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 17 (button)
  166. -- low flags: 00
  167. -- high flags: 2000
  168. -- rect: left=482 top=294 right=320 bottom=509
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 1236 / 1236
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Last Menu
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   go cd "Protocols P/1"
  180. end mouseUp
  181.  
  182.  
  183.  
  184.  
  185. -- part 20 (field)
  186. -- low flags: 01
  187. -- high flags: 0000
  188. -- rect: left=16 top=38 right=65 bottom=437
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 0
  192. -- font id: 156
  193. -- text size: 20
  194. -- style flags: 0
  195. -- line height: 26
  196. -- part name: Subtitle
  197.  
  198.  
  199. -- part 21 (field)
  200. -- low flags: 01
  201. -- high flags: 0000
  202. -- rect: left=16 top=68 right=88 bottom=470
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 0
  206. -- font id: 3
  207. -- text size: 10
  208. -- style flags: 256
  209. -- line height: 15
  210. -- part name: Instruction
  211.  
  212.  
  213. -- part 35 (field)
  214. -- low flags: 81
  215. -- high flags: 2007
  216. -- rect: left=8 top=36 right=94 bottom=231
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 156
  221. -- text size: 16
  222. -- style flags: 0
  223. -- line height: 17
  224. -- part name: Feedback1
  225.  
  226.  
  227. -- part 43 (field)
  228. -- low flags: 81
  229. -- high flags: 2007
  230. -- rect: left=8 top=97 right=155 bottom=231
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 0
  234. -- font id: 156
  235. -- text size: 16
  236. -- style flags: 0
  237. -- line height: 17
  238. -- part name: Feedback2
  239.  
  240.  
  241. -- part 37 (field)
  242. -- low flags: 81
  243. -- high flags: 2007
  244. -- rect: left=8 top=159 right=216 bottom=231
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 0
  248. -- font id: 156
  249. -- text size: 16
  250. -- style flags: 0
  251. -- line height: 17
  252. -- part name: Feedback3
  253.  
  254.  
  255. -- part 38 (field)
  256. -- low flags: 81
  257. -- high flags: 2007
  258. -- rect: left=8 top=219 right=277 bottom=231
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 0
  262. -- font id: 156
  263. -- text size: 16
  264. -- style flags: 0
  265. -- line height: 17
  266. -- part name: Feedback4
  267.  
  268.  
  269. -- part 40 (field)
  270. -- low flags: 81
  271. -- high flags: 2007
  272. -- rect: left=8 top=280 right=338 bottom=231
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 0
  276. -- font id: 156
  277. -- text size: 16
  278. -- style flags: 0
  279. -- line height: 17
  280. -- part name: CorrectAnswer
  281.  
  282.  
  283. -- part 39 (field)
  284. -- low flags: 81
  285. -- high flags: 2007
  286. -- rect: left=238 top=32 right=89 bottom=461
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 0
  290. -- font id: 156
  291. -- text size: 16
  292. -- style flags: 0
  293. -- line height: 17
  294. -- part name: Feedback5
  295.  
  296.  
  297. -- part 5 (field)
  298. -- low flags: 81
  299. -- high flags: 0001
  300. -- rect: left=423 top=0 right=13 bottom=466
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 65535
  304. -- font id: 4
  305. -- text size: 9
  306. -- style flags: 0
  307. -- line height: 12
  308. -- part name: CardTitle
  309.  
  310.  
  311. -- part 44 (button)
  312. -- low flags: 00
  313. -- high flags: A004
  314. -- rect: left=268 top=321 right=340 bottom=413
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 1
  318. -- font id: 0
  319. -- text size: 12
  320. -- style flags: 0
  321. -- line height: 16
  322. -- part name: Answer
  323. ----- HyperTalk script -----
  324. on mouseUp
  325.   send mouseUp to bg btn "done"
  326.   repeat with i = 1 to number of lines in fld "origins"
  327.     set the loc of fld ("item" & i) to (line i of fld "origins")
  328.   end repeat
  329.   put line 1 of fld "key" into theLocs
  330.   repeat with i = 1 to number of lines in fld "origins"
  331.     get item (i*2 - 1) to (i*2) of theLocs
  332.     set the loc of fld ("item" & i) to it
  333.   end repeat
  334. end mouseUp
  335.  
  336.  
  337. -- part 58 (button)
  338. -- low flags: 00
  339. -- high flags: 2000
  340. -- rect: left=482 top=208 right=234 bottom=509
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 1234 / 1234
  343. -- text alignment: 1
  344. -- font id: 0
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: Lesson
  349. ----- HyperTalk script -----
  350. on mouseUp
  351.   lesson "1.2.2"
  352. end mouseUp
  353.  
  354.  
  355. -- part 59 (field)
  356. -- low flags: 01
  357. -- high flags: 2000
  358. -- rect: left=284 top=121 right=150 bottom=439
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 0 / 0
  361. -- text alignment: 1
  362. -- font id: 156
  363. -- text size: 16
  364. -- style flags: 0
  365. -- line height: 16
  366. -- part name: Label1
  367.  
  368.  
  369. -- part 61 (field)
  370. -- low flags: 01
  371. -- high flags: 2000
  372. -- rect: left=284 top=174 right=203 bottom=439
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 1
  376. -- font id: 156
  377. -- text size: 16
  378. -- style flags: 0
  379. -- line height: 16
  380. -- part name: Label2
  381.  
  382.  
  383. -- part 62 (field)
  384. -- low flags: 01
  385. -- high flags: 2000
  386. -- rect: left=284 top=227 right=256 bottom=439
  387. -- title width / last selected line: 0
  388. -- icon id / first selected line: 0 / 0
  389. -- text alignment: 1
  390. -- font id: 156
  391. -- text size: 16
  392. -- style flags: 0
  393. -- line height: 16
  394. -- part name: Label3
  395.  
  396.  
  397. -- part 63 (field)
  398. -- low flags: 01
  399. -- high flags: 2000
  400. -- rect: left=284 top=280 right=309 bottom=439
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 0 / 0
  403. -- text alignment: 1
  404. -- font id: 156
  405. -- text size: 16
  406. -- style flags: 0
  407. -- line height: 16
  408. -- part name: Label4
  409.  
  410.  
  411. -- part 23 (field)
  412. -- low flags: 01
  413. -- high flags: 2004
  414. -- rect: left=40 top=108 right=159 bottom=195
  415. -- title width / last selected line: 0
  416. -- icon id / first selected line: 0 / 0
  417. -- text alignment: 0
  418. -- font id: 156
  419. -- text size: 13
  420. -- style flags: 0
  421. -- line height: 14
  422. -- part name: Item1
  423. ----- HyperTalk script -----
  424. on mouseDown
  425.   moveField
  426. end mouseDown
  427.  
  428.  
  429. -- part 24 (field)
  430. -- low flags: 01
  431. -- high flags: 2004
  432. -- rect: left=40 top=161 right=212 bottom=195
  433. -- title width / last selected line: 0
  434. -- icon id / first selected line: 0 / 0
  435. -- text alignment: 0
  436. -- font id: 156
  437. -- text size: 13
  438. -- style flags: 0
  439. -- line height: 14
  440. -- part name: Item2
  441. ----- HyperTalk script -----
  442. on mouseDown
  443.   moveField
  444. end mouseDown
  445.  
  446.  
  447. -- part 25 (field)
  448. -- low flags: 01
  449. -- high flags: 2004
  450. -- rect: left=40 top=214 right=265 bottom=195
  451. -- title width / last selected line: 0
  452. -- icon id / first selected line: 0 / 0
  453. -- text alignment: 0
  454. -- font id: 156
  455. -- text size: 13
  456. -- style flags: 0
  457. -- line height: 14
  458. -- part name: Item3
  459. ----- HyperTalk script -----
  460. on mouseDown
  461.   moveField
  462. end mouseDown
  463.  
  464.  
  465. -- part 64 (field)
  466. -- low flags: 01
  467. -- high flags: 2004
  468. -- rect: left=40 top=267 right=318 bottom=195
  469. -- title width / last selected line: 0
  470. -- icon id / first selected line: 0 / 0
  471. -- text alignment: 0
  472. -- font id: 156
  473. -- text size: 13
  474. -- style flags: 0
  475. -- line height: 14
  476. -- part name: Item4
  477. ----- HyperTalk script -----
  478. on mouseDown
  479.   moveField
  480. end mouseDown
  481.  
  482.  
  483. -- part 41 (field)
  484. -- low flags: 81
  485. -- high flags: 2004
  486. -- rect: left=147 top=132 right=304 bottom=356
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 0 / 0
  489. -- text alignment: 0
  490. -- font id: 156
  491. -- text size: 16
  492. -- style flags: 0
  493. -- line height: 17
  494. -- part name: MasterFeedback
  495.  
  496.  
  497. -- part 42 (button)
  498. -- low flags: 80
  499. -- high flags: A002
  500. -- rect: left=215 top=279 right=296 bottom=284
  501. -- title width / last selected line: 0
  502. -- icon id / first selected line: 0 / 0
  503. -- text alignment: 1
  504. -- font id: 0
  505. -- text size: 12
  506. -- style flags: 0
  507. -- line height: 16
  508. -- part name: Done
  509. ----- HyperTalk script -----
  510. on mouseUp
  511.   lock screen
  512.   hide fld "MasterFeedback"
  513.   hide bg btn "Done"
  514.   unlock screen
  515. end mouseUp
  516.  
  517.  
  518.  
  519. -- part 70 (button)
  520. -- low flags: 00
  521. -- high flags: 2000
  522. -- rect: left=478 top=319 right=341 bottom=498
  523. -- title width / last selected line: 0
  524. -- icon id / first selected line: 1238 / 1238
  525. -- text alignment: 1
  526. -- font id: 0
  527. -- text size: 12
  528. -- style flags: 0
  529. -- line height: 16
  530. -- part name: Prev
  531. ----- HyperTalk script -----
  532. on mouseUp
  533.   lock screen
  534.   go prev
  535.   unlock screen with scroll right
  536. end mouseUp
  537.  
  538.  
  539. -- part 71 (button)
  540. -- low flags: 00
  541. -- high flags: 2000
  542. -- rect: left=493 top=319 right=341 bottom=512
  543. -- title width / last selected line: 0
  544. -- icon id / first selected line: 1237 / 1237
  545. -- text alignment: 1
  546. -- font id: 0
  547. -- text size: 12
  548. -- style flags: 0
  549. -- line height: 16
  550. -- part name: Next
  551. ----- HyperTalk script -----
  552. on mouseUp
  553.   lock screen
  554.   go next
  555.   unlock screen with scroll left
  556. end mouseUp
  557.  
  558.  
  559. -- part 72 (field)
  560. -- low flags: 81
  561. -- high flags: 0002
  562. -- rect: left=0 top=0 right=81 bottom=75
  563. -- title width / last selected line: 0
  564. -- icon id / first selected line: 0 / 0
  565. -- text alignment: 0
  566. -- font id: 3
  567. -- text size: 12
  568. -- style flags: 0
  569. -- line height: 16
  570. -- part name: origins
  571.  
  572.  
  573. -- part 73 (field)
  574. -- low flags: 81
  575. -- high flags: 0002
  576. -- rect: left=77 top=0 right=81 bottom=152
  577. -- title width / last selected line: 0
  578. -- icon id / first selected line: 0 / 0
  579. -- text alignment: 0
  580. -- font id: 3
  581. -- text size: 12
  582. -- style flags: 0
  583. -- line height: 16
  584. -- part name: destinations
  585.  
  586.  
  587. -- part 74 (field)
  588. -- low flags: 81
  589. -- high flags: 0002
  590. -- rect: left=154 top=0 right=81 bottom=194
  591. -- title width / last selected line: 0
  592. -- icon id / first selected line: 0 / 0
  593. -- text alignment: 0
  594. -- font id: 3
  595. -- text size: 12
  596. -- style flags: 0
  597. -- line height: 16
  598. -- part name: decisions
  599.  
  600.  
  601. -- part 75 (field)
  602. -- low flags: 81
  603. -- high flags: 0002
  604. -- rect: left=196 top=0 right=34 bottom=426
  605. -- title width / last selected line: 0
  606. -- icon id / first selected line: 0 / 0
  607. -- text alignment: 0
  608. -- font id: 3
  609. -- text size: 12
  610. -- style flags: 0
  611. -- line height: 16
  612. -- part name: key
  613.